SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
CREATE Procedure [dbo].[SP_TCPERC_ANUL_D02]
/*-------------------------------------------------------*/          
/*---Empresa              : OFISIS S.A.                --*/          
/*---Cliente              : OFISIS S.A.                --*/          
/*---Sistema              : Tesoreria                  --*/          
/*---M¢dulo               : Empresa                    --*/          
/*---Programa             : Anulación Comp. Percepción --*/          
/*---Script               :       --*/          
/*---Nombre SP            : SP_TCPERC_ANUL_D02         --*/          
/*---Desarrollado por     : Manuel De La Cruz           --*/          
/*---Fecha Creaci¢n       : 18/11/2011                 --*/          
/*---Base Datos           : Microsoft Sql Server       --*/          
/*---Versi¢n              : 9.0                        --*/          
/*---Invoca a SP          :                            --*/          
/*-------------------------------------------------------*/          
/*-------------------------------------------------------*/          
/*-------------------------------------------------------*/          
/*-------------------------------------------------------*/                                    
/*---Modificado 1 por         :  --*/                                    
/*---Fecha ModELSE IFicaci®n  :           --*/                                     
/*---Detalle Modificaci®n     :  --*/       
/*--- --*/                            
/*---------------------------------------------------------*/         
          
/*-------------------------------------------------------*/          
/*---Drop Proc SP_TCPERC_ANUL_D02                      --*/          
/*---Grant Execute on SP_TCPERC_ANUL_D02 to public     --*/           
/*---SP_TCPERC_ANUL_D02                                --*/          
/*-------------------------------------------------------*/      
      
 @ISCO_EMPR   TD_VC_002,           
 @ISCO_USUA_MODI TD_VC_008_USUA,          
 @ISCO_CLIE   TD_VC_020,          
 @ISNU_COMP_PERC TD_VC_020,          
 @ISCO_BANC   TD_VC_003,     
 @ISNU_CNTA_BANC TD_VC_020  ,     
 @ISCO_CAJA   TD_VC_008,     
 @ISAA_BACA  TD_VC_004 ,     
 @ISMM_BACA   TD_VC_002,     
 @ISNU_COMP_BACA  TD_VC_008      
        
 As        
 Declare  @VSTI_DOCU TD_VC_003          
        
 Begin Tran SP_TCPERC_ANUL_D02          
        
 Select  @VSTI_DOCU = TI_DOCU      
 From TTDOCU_CNTB      
 Where ST_DOCU_0020 = 'S'      
       
 Update TCCOMP_PERC         
 Set TI_SITU = 'ANU',        
  CO_USUA_MODI = @ISCO_USUA_MODI,        
  FE_USUA_MODI = GETDATE()          
 Where  CO_EMPR = @ISCO_EMPR          
 And    NU_COMP_PERC = @ISNU_COMP_PERC        
       
 If @@error <> 0          
 Begin          
  Rollback tran SP_TCPERC_ANUL_D02      
  Return          
 End              
       
 Update TMDOCU_CLIE      
 Set  CO_ESTA_DOCU = 'ANU',       
   IM_PAGA  = 0,      
   CO_USUA_MODI = @ISCO_USUA_MODI,        
   FE_USUA_MODI = Getdate()      
 Where  CO_EMPR = @ISCO_EMPR      
 And    CO_CLIE = @ISCO_CLIE      
 And    CO_TIPO_DOCU  = @VSTI_DOCU      
 And    NU_DOCU_CLIE = @ISNU_COMP_PERC      
       
 If @@error <> 0      
 Begin      
  Rollback tran SP_TCPERC_ANUL_D02      
  Return      
 End       
       
 Insert TCPERC_ANUL ( CO_EMPR, NU_COMP_PERC,  FE_ANUL, CO_CLIE, CO_BANC, NU_CNTA_BANC, CO_CAJA, AA_BACA, MM_BACA, NU_COMP_BACA, CO_USUA_CREA, FE_USUA_CREA,     
 CO_USUA_MODI, FE_USUA_MODI)          
 Values ( @ISCO_EMPR, @ISNU_COMP_PERC, getdate(), @ISCO_CLIE, @ISCO_BANC, @ISNU_CNTA_BANC, @ISCO_CAJA, @ISAA_BACA, @ISMM_BACA, @ISNU_COMP_BACA,    
 @ISCO_USUA_MODI, GETDATE(),@ISCO_USUA_MODI, GETDATE())       
       
 If @@error <> 0          
 Begin          
  Rollback tran SP_TCPERC_ANUL_D02      
  Return         
 End              
          
Commit Tran          
/*-------------------------- Fin ------------------------------*/
GO
